home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Powervisor v1.10b disk1.adf / s / pv / PrintMode.pv < prev    next >
Text File  |  1991-09-15  |  2KB  |  105 lines
  1. /* Dump the current mode settings */
  2.  
  3. options results
  4.  
  5. 'void (mode>>0)&3'
  6. a=result
  7. 'print "Memory mode      : "'
  8. if a=0 then 'print Byte'
  9. else if a=1 then 'print Long'
  10. else if a=2 then 'print Word'
  11. else 'print ???'
  12. 'print \0a'
  13.  
  14. 'void (mode>>2)&3'
  15. a=result
  16. 'print "Int display mode : "'
  17. if a=0 then 'print Hex'
  18. else if a=1 then 'print Dec'
  19. else if a=2 then 'print HexDec'
  20. else 'print ???'
  21. 'print \0a'
  22.  
  23. 'void (mode>>4)&3'
  24. a=result
  25. 'print "Interlace mode   : "'
  26. if a=0 then 'print NoLace'
  27. else if a=1 then 'print Lace'
  28. else 'print ???'
  29. 'print \0a'
  30.  
  31. 'void (mode>>6)&3'
  32. a=result
  33. 'print "Feedback mode    : "'
  34. if a=0 then 'print NoFb'
  35. else if a=1 then 'print Fb'
  36. else 'print ???'
  37. 'print \0a'
  38.  
  39. 'void (mode>>8)&1'
  40. a=result
  41. 'print "More mode        : "'
  42. if a=0 then 'print NoMore'
  43. else 'print More'
  44. 'print \0a'
  45.  
  46. 'void (mode>>9)&1'
  47. a=result
  48. 'print "List mode        : "'
  49. if a=0 then 'print NoAuto'
  50. else 'print Auto'
  51. 'print \0a'
  52.  
  53. 'void (mode>>10)&7'
  54. a=result
  55. 'print "Screen mode      : "'
  56. if a=0 then 'print Default'
  57. else if a=1 then 'print Pal'
  58. else if a=2 then 'print Ntsc'
  59. else if a=3 then 'print Vga'
  60. else if a=4 then 'print Viking'
  61. else 'print ???'
  62. 'print \0a'
  63.  
  64. 'void (mode>>13)&1'
  65. a=result
  66. 'print "Show hex mode    : "'
  67. if a=0 then 'print NoSHex'
  68. else 'print SHex'
  69. 'print \0a'
  70.  
  71. 'void (mode>>14)&1'
  72. a=result
  73. 'print "Space mode       : "'
  74. if a=0 then 'print NoSpace'
  75. else 'print Space'
  76. 'print \0a'
  77.  
  78. 'void (mode>>15)&1'
  79. a=result
  80. 'print "Size gadget mode : "'
  81. if a=0 then 'print NoSBottom'
  82. else 'print SBottom'
  83. 'print \0a'
  84.  
  85. 'void (mode>>16)&1'
  86. a=result
  87. 'print "Lone space mode  : "'
  88. if a=0 then 'print NoLoneSpc'
  89. else 'print LoneSpc'
  90. 'print \0a'
  91.  
  92. 'void (mode>>17)&1'
  93. a=result
  94. 'print "Fancy mode       : "'
  95. if a=0 then 'print NoFancy'
  96. else 'print Fancy'
  97. 'print \0a'
  98.  
  99. 'void (mode>>18)&1'
  100. a=result
  101. 'print "Patch mode       : "'
  102. if a=0 then 'print NoPatch'
  103. else 'print Patch'
  104. 'print \0a'
  105.